﻿Public Class WebForm1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim height As Integer
        Dim weight As Integer

        height = CInt(TB_height.Text)
        weight = CInt(Tb_weight.Text)

        Dim Result As Integer

        Result = (weight / (height * height))

        LBL_BMI.Text = Result
    End Sub
End Class